home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 03 Demos and Info / XMAS82.SDA / CHRISTMAS (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  976 b   |  38 lines
  1. 10 REM
  2. 11 REM  COMMODORE 64 CHRISTMAS ALBUM
  3. 12 REM
  4. 13 REM
  5. 14 REM            MUSIC: WAYNE EASTWOOD
  6. 15 REM  SCREENS/SPRITES: H. REX BOUCHER
  7. 16 REM      DESIGN/PROG: STEPHEN MURRI
  8. 17 REM
  9. 18 REM
  10. 19 REM
  11. 20 REM
  12. 21 REM
  13. 25 POKE53280,6:POKE53281,6:PRINT"[147]"
  14. 26 PRINT"NOTE:":PRINT""
  15. 27 PRINT"   THIS COMMODORE PROGRAM WAS WRITTEN"
  16. 28 PRINT"   BY EASTWOOD/BOUCHER/MURRI FOR"
  17. 29 PRINT"   CHRISTMAS 1982.  COMMODORE IS"
  18. 30 PRINT"   GONE, BUT THE COMPUTERS THAT THEY"
  19. 31 PRINT"   MADE STILL WORK BEAUTIFULLY ..."
  20. 36 PRINT"ENTER OPTION:":PRINT""
  21. 37 PRINT"   R=RUN CONTINUOUSLY"
  22. 38 PRINT"   S=RUN ONCE, SIT AND WAIT FOR ANY KEY"
  23. 39 GETI$:IFI$=""THENGOTO39
  24. 40 IFI$<>"S"THENIFI$<>"R"THEN GOTO39
  25. 42 IF I$="S"THENPOKE40959,1:GOTO50
  26. 43 POKE40959,0
  27. 50 PRINT"[147]LOADING":PRINT""
  28. 52 POKE198,10
  29. 60 PRINT"LOAD"CHR$(34)"CHRISTMASMUSIC"CHR$(34)",8,1"
  30. 61 PRINT"NEW"
  31. 62 PRINT"LOAD"CHR$(34)"CHRISTMASCODE"CHR$(34)",8,1"
  32. 63 PRINT"NEW"
  33. 64 PRINT"LOAD"CHR$(34)"CHRISTMASROOT"CHR$(34)",8"
  34. 65 POKE198,10
  35. 66 DATA 19,13,13,13,13,13,82,85,78,13
  36. 67 FORI=1TO10:READX:POKE630+I,X:NEXT
  37. 68 POKE56,13:NEW
  38.